home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ AutoRun Lister CurUser.xpl < prev    next >
Text File  |  2004-03-01  |  4KB  |  155 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="8"
  3. "COUNT"="3"
  4. "UIPATH 1"="Startup/Shutdown\Startup\Windows 9x/ME\70) AutoRun - Part 2"
  5. "UIPATH 2"="Startup/Shutdown\Startup\Windows NT/2K/XP\50) AutoRun - Part 2"
  6. "UIPATH 3"="Virtual Paranoia\Hijacker Places"
  7. "NAME"="AutoRun Programs (Current User)"
  8. "VERSION"="2.05"
  9. "LANGUAGE"="VBScript"
  10. "TEXT 1"="Show Info"
  11. "TEXT 2"="Enable/Disable"
  12. "TEXT 3"="Delete"
  13. "DESCRIPTION 1"="These programs are always started when you login."
  14. "DESCRIPTION 2"="Please note the difference: While all items in 'AutoRun Programs' are executed when the computer is started, the items listed here will only be started if YOU login."
  15. "DESCRIPTION 3"="Click "Show Info" to see the command that is executed, "Enable/Disable" to enable or disable an item or "Delete" to remove an item."
  16. "AUTHOR"="Xteq Systems"
  17. "CONTACTURL"="http://www.xteq.com"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"=" "
  20.  
  21.  
  22. '/*** MAIN TEMPLATE IS XQ AutoRun Lister.XPL ***/
  23. '/*** ONLY CHANGE REGISTRY KEYS BELOW ***/
  24.  
  25.   sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Run\"
  26. sPD1="HKCU\Software\Microsoft\Windows\CurrentVersion\Run-\"
  27. sPD2="HKCU\Software\Microsoft\Windows\CurrentVersion\Run (Disabled)\"
  28.  
  29. '/////////////////////////////////
  30. '///*** NO CHANGES BELOW HERE ***/
  31. Dim aryLoc()
  32. Dim iReadAllCount
  33.  
  34. sDisabled=" [DISABLED]"
  35.  
  36. Sub Plugin_Initialize 
  37.   iReadAllCount=0
  38.   Call ReloadAll
  39. End Sub
  40.  
  41. Sub ReloadAll
  42.  for i=1 to iReadAllCount
  43.      Call SetUIElement(i,"")
  44.  next 
  45.  
  46.  i=0
  47.  
  48.  iC=RegEnumValues(sP)
  49.  i=i+iC
  50.  
  51.  iC=RegEnumValues(sPD1)
  52.  i=i+iC
  53.  
  54.  iC=RegEnumValues(sPD2)
  55.  i=i+iC
  56.  
  57.  
  58.  ReDim aryLoc(i)
  59.  iReadAllCount=1
  60.  
  61.  Call ReadAll(sP,1,false)
  62.  Call ReadAll(sPD1,2,true)
  63.  Call ReadAll(sPD2,3,true)
  64. End Sub
  65.  
  66. Sub ReadAll(key,idx,IsDisabledKey)
  67.  iC=RegEnumValues(key)
  68.  if iC>0 then
  69.     for l=1 to iC
  70.         sName=RegEnumElement(l)
  71.         
  72.         If IsDisabledKey=true then
  73.            sName=sName & sDisabled
  74.         end if
  75.  
  76.         Call SetUIElement(iReadAllCount,sName)
  77.         aryLoc(iReadAllCount)=idx
  78.  
  79.         iReadAllCount=iReadAllCount+1
  80.     Next
  81.  end if
  82.  
  83. End Sub
  84.  
  85.  
  86.  
  87. Sub Plugin_CheckData(ElementIndex)
  88. End Sub
  89.  
  90. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  91.  if ElementSubIndex>0 then
  92.  
  93.     'Look up Registry key
  94.     if aryLoc(ElementSubIndex)=1 then
  95.        sRegPath=sP
  96.     elseif aryLoc(ElementSubIndex)=2 then
  97.        sRegPath=sPD1
  98.     else
  99.        sRegPath=sPD2
  100.     end if
  101.      
  102.     'Look up Registry name
  103.     sRegName=GetUIElement(ElementSubIndex)
  104.     bIsEnabled=true
  105.     If InStr(sRegName,sDisabled)>0 then
  106.        sRegName=Left(sRegName,len(sRegName)-len(sDisabled))
  107.        bIsEnabled=false
  108.     end if
  109.  
  110.     'Look up Value
  111.     sValue=RegReadValue(sRegPath & sRegName)
  112.  
  113.     'msginformation sRegPath
  114.     'msginformation sRegName & "]"
  115.     'msginformation sValue 
  116.  
  117.  
  118.     if ElementIndex=1 then '//Information
  119.        Call MsgInformation("Command: " & vbCrlF & vbCrlf & sValue)
  120.     end if
  121.  
  122.     If ElementIndex=2 then '//Enable/Disable
  123.        if bIsEnabled=true then
  124.           '//Disable it 
  125.           Call RegWriteValue(sPD1 & sRegName,sValue,1)
  126.           Call RegDeleteValue(sRegPath & sRegName)
  127.        else
  128.          '//Enable it  
  129.           Call RegWriteValue(sP & sRegName,sValue,1)
  130.           Call RegDeleteValue(sRegPath & sRegName)
  131.        end if 
  132.  
  133.        Call ReloadAll
  134.     end if
  135.  
  136.  
  137.     If ElementIndex=3 then 'Delete
  138.        If bIsEnabled=true then
  139.           Call MsgError("Unable to delete an enabled item - please disable it first before trying to delete it")
  140.        else 
  141.           Call RegDeleteValue(sRegPath & sRegName)
  142.           Call ReloadAll
  143.           Call Restart
  144.        end if
  145.     end if
  146.  
  147.  end if
  148. End Sub
  149.  
  150. Sub Plugin_Terminate 
  151. End Sub
  152.  
  153.  
  154.  
  155.